BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Prog/T/Think-Pascal-7.0.cpt/THINK Pascal Interfaces/Video.p

Text File | 1991-04-05 | 5.8 KB | 186 lines | [TEXT/PJMM]

{    This file has been processed by The THINK Pascal Source Converter, v1.1.    }

{
Created: Sunday, January 6, 1991 at 11:26 PM
    Video.p
    Pascal Interface to the Macintosh Libraries

        Copyright Apple Computer, Inc.    1986-1990
        All rights reserved
}


{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}


    UNIT Video;
    INTERFACE
    USES
        Types, Quickdraw;













CONST
mBaseOffset = 1;            {Id of mBaseOffset.}
mRowBytes = 2;              {Video sResource parameter Id's }
mBounds = 3;                {Video sResource parameter Id's }
mVersion = 4;               {Video sResource parameter Id's }
mHRes = 5;                  {Video sResource parameter Id's }
mVRes = 6;                  {Video sResource parameter Id's }
mPixelType = 7;             {Video sResource parameter Id's }
mPixelSize = 8;             {Video sResource parameter Id's }
mCmpCount = 9;              {Video sResource parameter Id's }
mCmpSize = 10;              {Video sResource parameter Id's }
mPlaneBytes = 11;           {Video sResource parameter Id's }
mVertRefRate = 14;          {Video sResource parameter Id's }
mVidParams = 1;             {Video parameter block id.}
mTable = 2;                 {Offset to the table.}
mPageCnt = 3;               {Number of pages}
mDevType = 4;               {Device Type}

oneBitMode = 128;           {Id of OneBitMode Parameter list.}
twoBitMode = 129;           {Id of TwoBitMode Parameter list.}
fourBitMode = 130;          {Id of FourBitMode Parameter list.}
eightBitMode = 131;         {Id of EightBitMode Parameter list.}
sixteenBitMode = 132;       {Id of SixteenBitMode Parameter list.}
thirtyTwoBitMode = 133;     {Id of ThirtyTwoBitMode Parameter list.}

firstVidMode = 128;         {The new, better way to do the above.    }
secondVidMode = 129;        {    QuickDraw only supports six video    }
thirdVidMode = 130;         {    at this time.                        }
fourthVidMode = 131;
fifthVidMode = 132;
sixthVidMode = 133;

spGammaDir = 64;
spVidNamesDir = 65;

{ Control Codes }
cscReset = 0;
cscKillIO = 1;
cscSetMode = 2;
cscSetEntries = 3;
cscSetGamma = 4;
cscGrayPage = 5;
cscGrayScreen = 5;
cscSetGray = 6;
cscSetInterrupt = 7;
cscDirectSetEntries = 8;
cscSetDefaultMode = 9;

{ Status Codes }
cscGetMode = 2;
cscGetEntries = 3;
cscGetPageCnt = 4;
cscGetPages = 4;            { This is what C&D 2 calls it. }
cscGetPageBase = 5;
cscGetBaseAddr = 5;         { This is what C&D 2 calls it. }
cscGetGray = 6;
cscGetInterrupt = 7;
cscGetGamma = 8;
cscGetDefaultMode = 9;

TYPE
VPBlockPtr = ^VPBlock;
VPBlock = RECORD
    vpBaseOffset: LONGINT;  {Offset to page zero of video RAM (From minorBaseOS).}
    vpRowBytes: INTEGER;    {Width of each row of video memory.}
    vpBounds: Rect;         {BoundsRect for the video display (gives dimensions).}
    vpVersion: INTEGER;     {PixelMap version number.}
    vpPackType: INTEGER;
    vpPackSize: LONGINT;
    vpHRes: LONGINT;        {Horizontal resolution of the device (pixels per inch).}
    vpVRes: LONGINT;        {Vertical resolution of the device (pixels per inch).}
    vpPixelType: INTEGER;   {Defines the pixel type.}
    vpPixelSize: INTEGER;   {Number of bits in pixel.}
    vpCmpCount: INTEGER;    {Number of components in pixel.}
    vpCmpSize: INTEGER;     {Number of bits per component}
    vpPlaneBytes: LONGINT;  {Offset from one plane to the next.}
    END;

VDEntRecPtr = ^VDEntryRecord;
VDEntryRecord = RECORD
    csTable: Ptr;           {(long) pointer to color table entry=value, r,g,b:INTEGER}
    END;

{ Parm block for SetGray control call }
VDGrayPtr = ^VDGrayRecord;
VDGrayRecord = RECORD
    csMode: BOOLEAN;        {Same as GDDevType value (0=mono, 1=color)}
    END;

{ Parm block for SetEntries control call }
VDSetEntryPtr = ^VDSetEntryRecord;
VDSetEntryRecord = RECORD
    csTable: ^ColorSpec;    {Pointer to an array of color specs}
    csStart: INTEGER;       {Which spec in array to start with, or -1}
    csCount: INTEGER;       {Number of color spec entries to set}
    END;

{ Parm block for SetGamma control call }
VDGamRecPtr = ^VDGammaRecord;
VDGammaRecord = RECORD
    csGTable: Ptr;          {pointer to gamma table}
    END;

VDPgInfoPtr = ^VDPageInfo;
VDPageInfo = RECORD
    csMode: INTEGER;        {(word) mode within device}
    csData: LONGINT;        {(long) data supplied by driver}
    csPage: INTEGER;        {(word) page to switch in}
    csBaseAddr: Ptr;        {(long) base address of page}
    END;

VDSzInfoPtr = ^VDSizeInfo;
VDSizeInfo = RECORD
    csHSize: INTEGER;       {(word) desired/returned h size}
    csHPos: INTEGER;        {(word) desired/returned h position}
    csVSize: INTEGER;       {(word) desired/returned v size}
    csVPos: INTEGER;        {(word) desired/returned v position}
    END;

VDSettingsPtr = ^VDSettings;
VDSettings = RECORD
    csParamCnt: INTEGER;    {(word) number of params}
    csBrightMax: INTEGER;   {(word) max brightness}
    csBrightDef: INTEGER;   {(word) default brightness}
    csBrightVal: INTEGER;   {(word) current brightness}
    csCntrstMax: INTEGER;   {(word) max contrast}
    csCntrstDef: INTEGER;   {(word) default contrast}
    csCntrstVal: INTEGER;   {(word) current contrast}
    csTintMax: INTEGER;     {(word) max tint}
    csTintDef: INTEGER;     {(word) default tint}
    csTintVal: INTEGER;     {(word) current tint}
    csHueMax: INTEGER;      {(word) max hue}
    csHueDef: INTEGER;      {(word) default hue}
    csHueVal: INTEGER;      {(word) current hue}
    csHorizDef: INTEGER;    {(word) default horizontal}
    csHorizVal: INTEGER;    {(word) current horizontal}
    csHorizMax: INTEGER;    {(word) max horizontal}
    csVertDef: INTEGER;     {(word) default vertical}
    csVertVal: INTEGER;     {(word) current vertical}
    csVertMax: INTEGER;     {(word) max vertical}
    END;



    { UsingVideo }


    IMPLEMENTATION
END.